(server-log): Record the current time.

End with newline whenever STRING doesn't end with one.

diff --git a/lisp/server.el b/lisp/server.el
index 5097f9879638d9e51ea2e75c1ba675b31666074b..888cda5137f2be12e9adfbaae306feb2f19be307 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -122,8 +122,8 @@ by the programs that invoke the emacs server.")
       (save-excursion
        (set-buffer "*server*")
        (goto-char (point-max))
-       (insert string)
-       (or (bobp) (newline)))))
+       (insert (current-time-string) " " string)
+       (or (bolp) (newline)))))
 
 (defun server-sentinel (proc msg)
   (cond ((eq (process-status proc) 'exit)